From: Richard M. Stallman Date: Sun, 10 Apr 1994 08:56:50 +0000 (+0000) Subject: If server is a Sun, call menu-bar-enable-clipboard. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~92270 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5b0b2316d96ec600ede93a842a2700c82a7ca00b;p=emacs.git If server is a Sun, call menu-bar-enable-clipboard. --- diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index e60759ec59e..e300d797746 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -619,6 +619,11 @@ This is in addition to the primary selection.") (setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100) x-cut-buffer-max)) +;; Sun expects the menu bar cut and paste commands to use the clipboard. +(if (string-match "X11/NeWS - Sun Microsystems Inc\\." + (x-server-vendor)) + (menu-bar-enable-clipboard)) + ;; Apply a geometry resource to the initial frame. Put it at the end ;; of the alist, so that anything specified on the command line takes ;; precedence.